home *** CD-ROM | disk | FTP | other *** search
/ Dictionaries & Language / Dictionaries and Language (Chestnut CD-ROM) (1993).iso / german / talk / talkdemo.bas < prev    next >
Encoding:
BASIC Source File  |  1987-06-29  |  5.0 KB  |  109 lines
  1. 10 'Demonstrationsprogramm für das PC-SPEECH System
  2. 20 'von Andy McGuire
  3. 30 'Copyright 1984, 1987
  4. 40 'Alle Rechte vorbehalten.
  5. 50 '
  6. 60 REM SCREEN 0,1,0:WIDTH 40:LOCATE ,,0:COLOR 7,0,0:CLS:KEY OFF
  7. 65 REM Das REM bei Zeile 60 kann bei Systemen mit Farbgrafikkarte entfernt werden
  8. 70 NUMBER = 15
  9. 80 DIM TALK$(NUMBER)
  10. 90 DIM DISPLAY$(NUMBER)
  11. 100 FOR I=1 TO NUMBER:READ TALK$(I):NEXT I
  12. 110 FOR I=1 TO NUMBER:READ DISPLAY$(I):NEXT I
  13. 120 'Jedes TALK$ im Feld repräsentiert einen Satz der zu SPEECH geschickt wird
  14. 130 'Jedes DISPLAY$ im Feld ist ein englischer Satz 
  15. 140 FOR I=1 TO NUMBER
  16. 150 GOSUB 1010   'Zeige einen Satz an.
  17. 160 GOSUB 1030   'Übergabe eines Satzes an SPEECH.
  18. 170 GOSUB 1050   'Verzögerung
  19. 180 NEXT I
  20. 190 RESTORE 1370:FOR I=1 TO 8:FOR J=1 TO 11:READ X:READ C:COLOR C:PRINT CHR$(X);:NEXT J:PRINT:NEXT I:FOR I=1 TO 2000:NEXT I
  21. 200 CLS:RESTORE 2000:I=0
  22. 210 NUMBER = 15        'Neudefinition (Lesen der strings)
  23. 220 ERASE TALK$:ERASE DISPLAY$          'löschen der alten Felder
  24. 230 DIM TALK$(NUMBER)   'Dimensionierung der Felder
  25. 240 DIM DISPLAY$(NUMBER)        'nochmal
  26. 250 FOR I=1 TO NUMBER:READ TALK$(I):NEXT I
  27. 260 FOR I=1 TO NUMBER:READ DISPLAY$(I):NEXT I
  28. 270 FOR I=1 TO NUMBER
  29. 280 GOSUB 1010          'Anzeigen eines Satzes
  30. 290 GOSUB 1030          'Übergabe an SPEECH.
  31. 300 GOSUB 1050          'Verzögerung
  32. 310 NEXT I
  33. 900 END
  34. 1000 'Unterprogramme.
  35. 1010 PRINT DISPLAY$(I):PRINT     'Anzeigen eines Satzes
  36. 1020 RETURN
  37. 1030 DEF SEG=0:SPEECH=972:CALL SPEECH (TALK$(I))         'Übergabe an SPEECH..
  38. 1040 RETURN
  39. 1050 FOR J=1 TO 300:NEXT         'Verzögerung
  40. 1060 RETURN
  41. 1070 DATA "s-p-ee-ch b-i ae-n-d-ee m-ih-k g-w-i-r"
  42. 1080 DATA "k-ah-p-ee-r-i-t d-ee-s-eh-m-b-uh-r s-eh-k-uh-n-d n-i-n-t-ee-n h-uh-n-d-r-eh-d a-t-ee th-r-ee"
  43. 1090 DATA "aw-l r-i-t-s r-ee-s-u-r-v-d"
  44. 1100 DATA "a-ee b-ee s-ee d-ee ee-ee eh-f j-ee a-ch i j-a k-a eh-l eh-m eh-n oh-w p-ee k-y-oo ah-r eh-s t-ee y-oo v-ee d-uh-b-l-y-oo eh-k-s w-i z-ee"
  45. 1110 DATA "z-ee-r-oh w-uh-n t-oo th-r-ee f-oh-r f-i-v s-ih-k-s s-eh-v-eh-n a-a-t n-i-n t-eh-n"
  46. 1120 DATA "tz-uh r-a-ih-n ih-n s-p-a-ih-n"
  47. 1130 DATA "f-ah-l-l-s j-eh-n-t-l-ee ah-n tz-uh p-l-a-ih-n"
  48. 1140 DATA "h-ae-s ae-n-ee-b-ah-d-ee s-ee-n m-i d-aw-g"
  49. 1150 DATA "h-ih-s n-a-m ih-s ch-ah-r-l-ee"
  50. 1160 DATA "ae-n-d i m-ih-s h-ih-m v-ae-r-ee v-ae-r-ee m-uh-ch"
  51. 1170 DATA "tz-ih-s ih-s ae-n ee-m-r-j-eh-n-s-ee"
  52. 1180 DATA "uh k-ih-l-r t-uh-m-a-t-oh h-ae-s j-uh-s-t uh-t-ae-k-t"
  53. 1190 DATA "ae-n-d ih-s ee-t-ih-n-g tz-uh s-ih-t-ee"
  54. 1200 DATA "l-u-k ah-w-t"
  55. 1210 DATA "h-ee-r ih-t k-uh-m-s"
  56. 1220 DATA "SPEECH by Andy McGuire"
  57. 1230 DATA "Copyright December 2, 1986,"
  58. 1240 DATA "All Rights Reserved."
  59. 1250 DATA "ABCDEFGHIJKLMNOPQRSTUVWXYZ"
  60. 1260 DATA "0,1,2,3,4,5,6,7,8,9,10"
  61. 1270 DATA "The rain in Spain..."
  62. 1280 DATA "falls gently on the plain."
  63. 1290 DATA "Has anybody seen my dog?"
  64. 1300 DATA "His name is Charlie..."
  65. 1310 DATA "and I miss him very very much."
  66. 1320 DATA "This is an emergency..."
  67. 1330 DATA "A killer tomato has just attacked..."
  68. 1340 DATA "and is eating the city!"
  69. 1350 DATA "Look out!"
  70. 1360 DATA "Here it comes!!!"
  71. 1370 DATA 32,7,32,7,32,7,219,2,32,7,219,2,32,7,219,2,32,7,32,7,32,7
  72. 1380 DATA 32,7,32,7,219,2,219,4,219,4,219,4,219,4,219,4,219,2,32,7,32,7
  73. 1390 DATA 32,7,32,7,219,4,219,4,219,4,219,4,219,4,219,4,219,4,32,7,32,7
  74. 1400 DATA 32,7,219,4,219,4,32,7,219,15,219,4,32,7,219,15,219,4,219,4,32,7
  75. 1410 DATA 32,7,219,4,219,4,219,4,219,4,219,4,219,4,219,4,219,4,219,4,32,7
  76. 1420 DATA 32,7,219,4,219,4,219,4,219,12,32,7,32,7,219,4,219,4,219,4,32,7
  77. 1430 DATA 32,7,32,7,219,4,219,4,219,4,219,4,219,4,219,4,219,4,32,7,32,7
  78. 1440 DATA 32,7,32,7,32,7,219,4,219,4,219,4,219,4,219,4,32,7,32,7,32,7
  79. 2000 DATA "tz-ih-s ih-s tz-uh w-a-ee w-ee t-eh-l s-p-ee-ch"
  80. 2010 DATA "h-aw-w t-oo t-aw-k"
  81. 2020 DATA "k-uh-n-s-ih-d-r tz-uh f-ah-l-oh-w-ih-n-g s-eh-n-t-eh-n-s"
  82. 2030 DATA "        "
  83. 2040 DATA "w-ee w-u-d b-r-a-k tz-ih-s s-eh-n-t-eh-n-s"
  84. 2050 DATA "d-ah-w-n l-i-k tz-ih-s"
  85. 2060 DATA "tz-uh m-ae-n ih-n tz-uh m-oo-n"
  86. 2070 DATA "ih-s d-ae-n-s-ih-n-g        "
  87. 2080 DATA "uh f-oh-n-eh-m ih-s uh b-a-s-ih-k s-ah-w-n-d y-oo-n-ih-t"
  88. 2090 DATA "tz-uh s-p-ee-ch p-r-oh-g-r-ae-m ih-s k-a-p-uh-b-uh-l"
  89. 2100 DATA "uh-f r-ee-p-r-oh-d-oo-s-ih-n-g th-u-r-t-ee s-ih-k-s f-oh-n-eh-m-s"
  90. 2110 DATA "y-oo-s-ih-n-g tz-ee-s f-oh-n-eh-m-s"
  91. 2120 DATA "ih-n d-ih-f-uh-r-eh-n-t k-ah-m-b-ih-n-a-sh-uh-n-s"
  92. 2130 DATA "g-ih-v-s uh-s tz-uh ae-b-ih-l-ih-t-ee t-oo k-r-ee-a-t"
  93. 2140 DATA "l-ih-m-ih-t-l-eh-s-s v-oh-k-ae-b-y-oo-l-ae-r-ee s-p-ee-ch"
  94. 3000 DATA "This is the way we tell SPEECH..."
  95. 3010 DATA "how to talk."
  96. 3020 DATA "Consider the following sentence..."
  97. 3030 DATA "The man in the moon is dancing."
  98. 3040 DATA "We would break this sentence"
  99. 3050 DATA "down like this:"
  100. 3060 DATA "tz-uh m-ae-n ih-n tz-uh m-oo-n"
  101. 3070 DATA "ih-s d-ae-n-s-ih-n-g    "
  102. 3080 DATA "a phonem is a basic sound unit."
  103. 3090 DATA "The speech program is capable"
  104. 3100 DATA "of reproducing 36 phonems."
  105. 3110 DATA "Using these phonems"
  106. 3120 DATA "in different combinations"
  107. 3130 DATA "gives us the ability to create"
  108. 3140 DATA "limitless vocabulary speech!"
  109.